home *** CD-ROM | disk | FTP | other *** search
/ Webster's Millennium Amer…Sign Language Dictionary / ASL.ISO / mac / SHARED.cst / 00041_Script_event handlers < prev    next >
Text File  |  2001-09-17  |  1KB  |  55 lines
  1. --∂ï
  2. global gToiletObj
  3.  
  4. on initMouse
  5.   when mouseDown then FlushEvent
  6. end
  7.  
  8.  
  9. on FlushEvent
  10.   
  11.   -- put "In FlushEvent"
  12.   
  13.   --if the cursor of sprite 0 = 4 then
  14.   
  15.   --put "Cursor was 4"
  16.   
  17.   if the movieName = "Skills.dir" and the doubleClick then
  18.     --put "It was a doubleClick"
  19.     dontPassEvent
  20.     -- nothing --dontPassEvent
  21.   end if
  22.   
  23.   if the machineType = 256 then  -- On the inferior platform.
  24.     
  25.     --    if the doubleClick then
  26.     --      nothing --dontPassEvent
  27.     --    end if
  28.     -- Do PC related birth Xobject stuff.
  29.     
  30.   else
  31.     
  32.     ----PETEMACK 06.20.01
  33.     --    openXLib The Pathname & "Johnny.Xob"
  34.     --    set gToiletObj = Johnny(mNew)
  35.     --    gToiletObj(mFlush) -- Dump the mouseEvent in the queue.
  36.     --    CloseXlib The PathName & "Johnny.Xob"
  37.     
  38.   end if
  39.   
  40. end
  41.  
  42. on checkExit
  43.   if the machineType <> 256 then
  44.         if the commandDown and ¨
  45.     (the key = "." or the key = "q") and ¨
  46.     the exitLock = TRUE then quitASL
  47.     else
  48.       if the controlDown and ¨
  49.     (the key = "." or the key = "q") and ¨
  50.     the exitLock = TRUE then quitASL
  51.     end if
  52.   end if
  53. end checkExit
  54.  
  55.